home *** CD-ROM | disk | FTP | other *** search
/ Elite College Girls 1 / Elite College Girls - Volume 1.iso / pc / shared.dir / 01952.ls < prev    next >
Encoding:
Text File  |  1996-02-02  |  8.0 KB  |  97 lines
  1. global gPhotos, gPhotos1, gPhotos2, gPhotos3, gPhotos4
  2.  
  3. on setGPhoto
  4.   if gPhotos < 1 then
  5.     set whichPath to the pathName & the movie
  6.     if whichPath contains "ECG1" then
  7.       setGPhotos()
  8.       set gPhotos to gPhotos1
  9.     else
  10.       if whichPath contains "ECG2" then
  11.         setGPhotos()
  12.         set gPhotos to gPhotos2
  13.       else
  14.         if whichPath contains "ECM1" then
  15.           setGPhotos()
  16.           set gPhotos to gPhotos3
  17.         else
  18.           if whichPath contains "ECM2" then
  19.             setGPhotos()
  20.             set gPhotos to gPhotos4
  21.           else
  22.             getPICTs()
  23.             sortPICTs(gPhotos)
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.  
  31. on getPICTs
  32.   set firstCast to (not developersKey() * 199) + 1
  33.   set lastCast to the number of castMembers
  34.   set gPhotos to []
  35.   sort(gPhotos)
  36.   repeat with x = firstCast to lastCast
  37.     set theCastType to the castType of cast x
  38.     if theCastType = #bitmap then
  39.       append(gPhotos, [the name of cast x, x])
  40.       next repeat
  41.     end if
  42.     if theCastType = #script then
  43.       exit repeat
  44.     end if
  45.   end repeat
  46.   if developersKey() then
  47.     put RETURN & RETURN & gPhotos
  48.   end if
  49. end
  50.  
  51. on sortPICTs whichList
  52.   set bigList to []
  53.   set smallList to []
  54.   set oldName to EMPTY
  55.   set theCount to count(whichList)
  56.   repeat with x = 1 to theCount
  57.     set indexX to getAt(whichList, 1)
  58.     set newName to getAt(indexX, 1)
  59.     set newName to char 1 to the number of chars in newName - 2 of newName
  60.     if newName <> oldName then
  61.       set charCount to the number of chars in newName
  62.       if charCount <= 6 then
  63.         put "Now processing " & newName & "..."
  64.       else
  65.         put "Now processing " & newName & ", who seems to have " & charCount & " letters in her name."
  66.         put "That would seem to be " & charCount - 6 & " too many to accomodate PC filename convention."
  67.       end if
  68.       if count(smallList) > 0 then
  69.         append(bigList, smallList)
  70.         set smallList to [newName]
  71.       end if
  72.     end if
  73.     if count(smallList) = 0 then
  74.       set smallList to [newName]
  75.     end if
  76.     append(smallList, getAt(indexX, 2))
  77.     deleteAt(whichList, 1)
  78.     set oldName to newName
  79.   end repeat
  80.   if count(smallList) > 0 then
  81.     append(bigList, smallList)
  82.     set smallList to []
  83.   end if
  84.   set gPhotos to bigList
  85.   if developersKey() then
  86.     put gPhotos
  87.     put count(gPhotos)
  88.   end if
  89. end
  90.  
  91. on setGPhotos
  92.   set gPhotos1 to [["ALICIA", 202, 204, 206, 208, 210, 212, 214, 216, 218, 220], ["ANGIE", 222, 224, 226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248, 250], ["ANNA", 252, 254, 256, 258, 260, 262, 264, 266, 268, 270, 272, 274, 276, 278, 280, 282, 284, 286, 288, 290, 292], ["CATHY", 294, 296, 298, 300, 302, 304, 306, 308, 310, 312, 314, 316, 318, 320, 322], ["CORY", 324, 326, 328, 330, 332, 334, 336, 338, 340, 342], ["HOPE", 344, 346, 348, 350, 352, 354, 356, 358, 360, 362, 364, 366, 368, 370, 372, 374, 376, 378, 380, 382], ["JENNY", 384, 386, 388, 390, 392, 394, 396, 398, 400, 402], ["KATJE", 404, 406, 408, 410, 412, 414, 416, 418, 420, 422, 424, 426, 428, 430, 432], ["KRISTI", 434, 436, 438, 440, 442, 444, 446, 448, 450, 452], ["LANA", 454, 456, 458, 460, 462, 464, 466, 468, 470, 472], ["MARIA", 474, 476, 478, 480, 482, 484, 486, 488, 490, 492, 494, 496, 498, 500, 502], ["MAYA", 504, 506, 508, 510, 512, 514, 516, 518, 520, 522, 524, 526, 528, 530, 532, 534, 536, 538, 540], ["MISSY", 542, 544, 546, 548, 550, 552, 554, 556, 558, 560, 562, 564, 566, 568], ["SANDY", 570, 572, 574, 576, 578, 580, 582, 584, 586, 588, 590, 592, 594, 596, 598, 600, 602, 604, 606, 608], ["SUZI", 610, 612, 614, 616, 618, 620, 622, 624, 626, 628, 630, 632, 634, 636, 638, 640, 642, 644, 646, 648], ["TONYA", 650, 652, 654, 656, 658, 660, 662, 664, 666, 668], ["YVETTE", 670, 672, 674, 676, 678, 680, 682, 684, 686, 688, 690, 692, 694, 696, 698]]
  93.   set gPhotos2 to [["ALEXIS", 202, 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, 224, 226, 228, 230, 232, 234, 236, 238, 240], ["AMY", 242, 244, 246, 248, 250, 252, 254, 256, 258, 260], ["BECCA", 262, 264, 266, 268, 270, 272, 274, 276, 278, 280], ["CARLY", 282, 284, 286, 288, 290, 292, 294, 296, 298, 300, 302, 304, 306, 308, 310, 312, 314, 316], ["CHERIE", 318, 320, 322, 324, 326, 328, 330, 332, 334, 336, 338, 340, 342, 344, 346, 348, 350, 352, 354, 356], ["JANET", 358, 360, 362, 364, 366, 368, 370, 372, 374, 376], ["KATIE", 378, 380, 382, 384, 386, 388, 390, 392, 394, 396, 398, 400, 402, 404, 406, 408, 410, 412, 414, 416], ["KIMMIE", 418, 420, 422, 424, 426, 428, 430, 432, 434, 436], ["LISA", 438, 440, 442, 444, 446, 448, 450, 452, 454, 456, 458, 460, 462, 464, 466], ["LOREN", 468, 470, 472, 474, 476, 478, 480, 482, 484, 486], ["MANDY", 488, 490, 492, 494, 496, 498, 500, 502, 504, 506, 508, 510, 512, 514, 516, 518, 520, 522, 524, 526], ["PAULA", 528, 530, 532, 534, 536, 538, 540, 542, 544, 546, 548, 550, 552, 554, 556, 558, 560, 562, 564, 566], ["TERRI", 568, 570, 572, 574, 576, 578, 580, 582, 584, 586, 588, 590, 592, 594, 596, 598, 600, 602, 604, 606], ["TINA", 608, 610, 612, 614, 616, 618, 620, 622, 624, 626, 628, 630, 632, 634, 636, 638, 640, 642, 644, 646], ["ZANNA", 648, 650, 652, 654, 656, 658, 660, 662, 664, 666, 668, 670, 672, 674, 676, 678, 680, 682, 684, 686]]
  94.   set gPhotos3 to [["ANGEL", 202, 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, 224, 226, 228], ["BETH", 230, 232, 234, 236, 238, 240, 242, 244, 246, 248, 250, 252, 254, 256, 258, 260, 262, 264, 266, 268], ["BETSY", 270, 272, 274, 276, 278, 280, 282, 284, 286, 288, 290, 292, 294, 296, 298], ["CYNDY", 300, 302, 304, 306, 308, 310, 312, 314, 316, 318, 320, 322, 324, 326, 328, 330, 332, 334, 336, 338], ["EILEEN", 340, 342, 344, 346, 348, 350, 352, 354, 356, 358, 360, 362, 364, 366, 368, 370, 372, 374, 376, 378], ["FAWN", 380, 382, 384, 386, 388, 390, 392, 394, 396, 398, 400, 402, 404, 406, 408, 410, 412, 414, 416, 418], ["HELENA", 420, 422, 424, 426, 428, 430, 432, 434, 436, 438, 440, 442, 444, 446, 448, 450, 452, 454, 456, 458, 460, 462, 464, 466, 468, 470, 472, 474, 476, 478, 480, 482, 484, 486, 488, 490, 492, 494], ["JACKIE", 496, 498, 500, 502, 504, 506, 508, 510, 512, 514, 516, 518, 520, 522, 524, 526, 528, 530, 532, 534], ["LAURIE", 536, 538, 540, 542, 544, 546, 548, 550, 552, 554, 556, 558, 560, 562, 564, 566], ["LEAH", 568, 570, 572, 574, 576, 578, 580, 582, 584, 586], ["LIZ", 588, 590, 592, 594, 596, 598, 600, 602, 604, 606, 608, 610, 612, 614, 616, 618, 620, 622, 624, 626], ["MARY", 628, 630, 632, 634, 636, 638, 640, 642, 644, 646, 648, 650, 652, 654, 656, 658, 660, 662, 664, 666], ["SHARI", 668, 670, 672, 674, 676, 678, 680, 682, 684, 686], ["SHAWNA", 688, 690, 692, 694, 696, 698, 700, 702, 704, 706], ["STEPHI", 708, 710, 712, 714, 716, 718, 720, 722, 724, 726, 728, 730, 732, 734, 736, 738, 740, 742, 744, 746]]
  95.   set gPhotos4 to [["ALLIE", 202, 204, 206, 208, 210, 212, 214, 216, 218], ["CANDI", 220, 222, 224, 226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248, 250, 252, 254, 256, 258], ["CHERYL", 260, 262, 264, 266, 268, 270, 272, 274, 276, 278], ["CONNIE", 280, 282, 284, 286, 288, 290, 292, 294, 296, 298], ["DANA", 300, 302, 304, 306, 308, 310, 312, 314, 316, 318, 320, 322, 324, 326, 328, 330, 332, 334, 336], ["ELLEN", 338, 340, 342, 344, 346, 348, 350, 352, 354, 356], ["ERICA", 358, 360, 362, 364, 366, 368, 370, 372, 374, 376, 378, 380, 382, 384, 386, 388, 390, 392, 394, 396], ["JASMIN", 398, 400, 402, 404, 406, 408, 410, 412, 414, 416, 418, 420, 422, 424, 426, 428, 430, 432, 434, 436], ["JULIE", 438, 440, 442, 444, 446, 448, 450, 452, 454, 456, 458, 460, 462, 464, 466, 468, 470, 472, 474, 476], ["LIZA", 478, 480, 482, 484, 486, 488, 490, 492, 494, 496], ["LORI", 498, 500, 502, 504, 506, 508, 510, 512, 514, 516, 518, 520, 522, 524, 526, 528, 530, 532, 534], ["LYNN", 536, 538, 540, 542, 544, 546, 548, 550, 552, 554], ["PAMELA", 556, 558, 560, 562, 564, 566, 568, 570, 572, 574, 576, 578, 580, 582, 584, 586, 588, 590, 592], ["ROBYN", 594, 596, 598, 600, 602, 604, 606, 608, 610, 612, 614, 616, 618, 620, 622], ["ROXIE", 624, 626, 628, 630, 632, 634, 636, 638, 640, 642, 644, 646, 648, 650, 652, 654, 656, 658, 660, 662], ["MISC", 664, 666]]
  96. end
  97.